home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 1 / PC World Interactive 1 - Nisan 1997.iso / prog / oyun / 6 / lottery.exe / 0 / RCDATA / TFORM1 / TFORM1.txt < prev   
Text File  |  1996-12-31  |  40KB  |  1,982 lines
  1. object Form1: TForm1
  2.   Left = 128
  3.   Top = 183
  4.   ActiveControl = Allbutton
  5.   BorderIcons = [biSystemMenu, biMinimize]
  6.   BorderStyle = bsSingle
  7.   Caption = 'MicroLot Lotto  ....'
  8.   ClientHeight = 290
  9.   ClientWidth = 568
  10.   Color = clSilver
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'System'
  14.   Font.Style = []
  15.   Icon.Data = {<image000.ico>}
  16.   Position = poScreenCenter
  17.   Visible = True
  18.   OnActivate = FormActivate
  19.   OnCloseQuery = FormCloseQuery
  20.   PixelsPerInch = 96
  21.   TextHeight = 16
  22.   object sp7: TImage
  23.     Left = 372
  24.     Top = 36
  25.     Width = 57
  26.     Height = 49
  27.     Picture.Data = {<image001.bmp>}
  28.     Visible = False
  29.   end
  30.   object blank: TImage
  31.     Left = 384
  32.     Top = 392
  33.     Width = 49
  34.     Height = 41
  35.     Picture.Data = {<image002.bmp>}
  36.     Visible = False
  37.   end
  38.   object ball5: TImage
  39.     Left = 328
  40.     Top = 392
  41.     Width = 49
  42.     Height = 41
  43.     Picture.Data = {<image003.bmp>}
  44.     Visible = False
  45.   end
  46.   object ball4: TImage
  47.     Left = 272
  48.     Top = 392
  49.     Width = 49
  50.     Height = 41
  51.     Picture.Data = {<image004.bmp>}
  52.     Visible = False
  53.   end
  54.   object ball3: TImage
  55.     Left = 384
  56.     Top = 352
  57.     Width = 49
  58.     Height = 41
  59.     Picture.Data = {<image005.bmp>}
  60.     Visible = False
  61.   end
  62.   object ball2: TImage
  63.     Left = 328
  64.     Top = 352
  65.     Width = 49
  66.     Height = 41
  67.     Picture.Data = {<image006.bmp>}
  68.     Visible = False
  69.   end
  70.   object ball1: TImage
  71.     Left = 272
  72.     Top = 352
  73.     Width = 49
  74.     Height = 41
  75.     Picture.Data = {<image007.bmp>}
  76.     Visible = False
  77.   end
  78.   object sp6: TImage
  79.     Left = 292
  80.     Top = 36
  81.     Width = 57
  82.     Height = 49
  83.     Picture.Data = {<image008.bmp>}
  84.     Visible = False
  85.   end
  86.   object sp5: TImage
  87.     Left = 236
  88.     Top = 36
  89.     Width = 57
  90.     Height = 49
  91.     Picture.Data = {<image009.bmp>}
  92.     Visible = False
  93.   end
  94.   object sp1: TImage
  95.     Left = 12
  96.     Top = 36
  97.     Width = 57
  98.     Height = 49
  99.     Picture.Data = {<image010.bmp>}
  100.     Visible = False
  101.   end
  102.   object sp2: TImage
  103.     Left = 68
  104.     Top = 36
  105.     Width = 57
  106.     Height = 49
  107.     Picture.Data = {<image011.bmp>}
  108.     Visible = False
  109.   end
  110.   object sp4: TImage
  111.     Left = 179
  112.     Top = 36
  113.     Width = 57
  114.     Height = 49
  115.     Picture.Data = {<image012.bmp>}
  116.     Visible = False
  117.   end
  118.   object sp3: TImage
  119.     Left = 124
  120.     Top = 36
  121.     Width = 57
  122.     Height = 49
  123.     Picture.Data = {<image013.bmp>}
  124.     Visible = False
  125.   end
  126.   object sel1: TImage
  127.     Left = 16
  128.     Top = 40
  129.     Width = 49
  130.     Height = 41
  131.   end
  132.   object sel2: TImage
  133.     Left = 72
  134.     Top = 40
  135.     Width = 49
  136.     Height = 41
  137.   end
  138.   object sel3: TImage
  139.     Left = 128
  140.     Top = 40
  141.     Width = 49
  142.     Height = 41
  143.   end
  144.   object sel4: TImage
  145.     Left = 184
  146.     Top = 40
  147.     Width = 49
  148.     Height = 41
  149.   end
  150.   object sel5: TImage
  151.     Left = 240
  152.     Top = 40
  153.     Width = 49
  154.     Height = 41
  155.   end
  156.   object sel6: TImage
  157.     Left = 296
  158.     Top = 40
  159.     Width = 49
  160.     Height = 41
  161.   end
  162.   object sel7: TImage
  163.     Left = 376
  164.     Top = 40
  165.     Width = 49
  166.     Height = 41
  167.   end
  168.   object Bonuslabel: TLabel
  169.     Left = 364
  170.     Top = 20
  171.     Width = 72
  172.     Height = 16
  173.     Caption = 'Bonus Ball'
  174.     Font.Color = clBlack
  175.     Font.Height = -13
  176.     Font.Name = 'System'
  177.     Font.Style = []
  178.     ParentFont = False
  179.     Visible = False
  180.   end
  181.   object Label1: TLabel
  182.     Left = 96
  183.     Top = 104
  184.     Width = 103
  185.     Height = 16
  186.     Caption = 'Previous Draws'
  187.     Font.Color = clBlack
  188.     Font.Height = -13
  189.     Font.Name = 'System'
  190.     Font.Style = []
  191.     ParentFont = False
  192.   end
  193.   object Image1: TImage
  194.     Left = 448
  195.     Top = 104
  196.     Width = 97
  197.     Height = 97
  198.     Picture.Data = {<image014.bmp>}
  199.   end
  200.   object ball7: TImage
  201.     Left = 272
  202.     Top = 432
  203.     Width = 49
  204.     Height = 41
  205.     Picture.Data = {<image015.bmp>}
  206.   end
  207.   object lined6: TEdit
  208.     Left = 192
  209.     Top = 216
  210.     Width = 25
  211.     Height = 24
  212.     TabStop = False
  213.     Color = clWhite
  214.     Font.Color = clBlack
  215.     Font.Height = -13
  216.     Font.Name = 'System'
  217.     Font.Style = []
  218.     MaxLength = 2
  219.     ParentFont = False
  220.     ReadOnly = True
  221.     TabOrder = 44
  222.   end
  223.   object lined5: TEdit
  224.     Left = 168
  225.     Top = 216
  226.     Width = 25
  227.     Height = 24
  228.     TabStop = False
  229.     Color = clWhite
  230.     Font.Color = clBlack
  231.     Font.Height = -13
  232.     Font.Name = 'System'
  233.     Font.Style = []
  234.     MaxLength = 2
  235.     ParentFont = False
  236.     ReadOnly = True
  237.     TabOrder = 43
  238.   end
  239.   object lined4: TEdit
  240.     Left = 144
  241.     Top = 216
  242.     Width = 25
  243.     Height = 24
  244.     TabStop = False
  245.     Color = clWhite
  246.     Font.Color = clBlack
  247.     Font.Height = -13
  248.     Font.Name = 'System'
  249.     Font.Style = []
  250.     MaxLength = 2
  251.     ParentFont = False
  252.     ReadOnly = True
  253.     TabOrder = 42
  254.   end
  255.   object linec6: TEdit
  256.     Left = 192
  257.     Top = 184
  258.     Width = 25
  259.     Height = 24
  260.     TabStop = False
  261.     Color = clWhite
  262.     Font.Color = clBlack
  263.     Font.Height = -13
  264.     Font.Name = 'System'
  265.     Font.Style = []
  266.     MaxLength = 2
  267.     ParentFont = False
  268.     ReadOnly = True
  269.     TabOrder = 37
  270.   end
  271.   object linec5: TEdit
  272.     Left = 168
  273.     Top = 184
  274.     Width = 25
  275.     Height = 24
  276.     TabStop = False
  277.     Color = clWhite
  278.     Font.Color = clBlack
  279.     Font.Height = -13
  280.     Font.Name = 'System'
  281.     Font.Style = []
  282.     MaxLength = 2
  283.     ParentFont = False
  284.     ReadOnly = True
  285.     TabOrder = 36
  286.   end
  287.   object linec4: TEdit
  288.     Left = 144
  289.     Top = 184
  290.     Width = 25
  291.     Height = 24
  292.     TabStop = False
  293.     Color = clWhite
  294.     Font.Color = clBlack
  295.     Font.Height = -13
  296.     Font.Name = 'System'
  297.     Font.Style = []
  298.     MaxLength = 2
  299.     ParentFont = False
  300.     ReadOnly = True
  301.     TabOrder = 35
  302.   end
  303.   object Buttonreg: TButton
  304.     Left = 272
  305.     Top = 112
  306.     Width = 81
  307.     Height = 33
  308.     Hint = 'Press here to register'
  309.     Caption = '&Register'
  310.     Font.Color = clBlack
  311.     Font.Height = -13
  312.     Font.Name = 'System'
  313.     Font.Style = []
  314.     ParentFont = False
  315.     ParentShowHint = False
  316.     ShowHint = True
  317.     TabOrder = 63
  318.     OnClick = ButtonregClick
  319.   end
  320.   object Buttonstat: TButton
  321.     Left = 354
  322.     Top = 112
  323.     Width = 81
  324.     Height = 33
  325.     Hint = 'Press here for staatistics of numbers'
  326.     Caption = 'S&tatistics'
  327.     Font.Color = clBlack
  328.     Font.Height = -13
  329.     Font.Name = 'System'
  330.     Font.Style = []
  331.     ParentFont = False
  332.     ParentShowHint = False
  333.     ShowHint = True
  334.     TabOrder = 62
  335.     OnClick = ButtonstatClick
  336.   end
  337.   object Buttonview: TButton
  338.     Left = 354
  339.     Top = 144
  340.     Width = 81
  341.     Height = 33
  342.     Hint = 'Press here to view all numbers'
  343.     Caption = '&View List'
  344.     Font.Color = clBlack
  345.     Font.Height = -13
  346.     Font.Name = 'System'
  347.     Font.Style = []
  348.     ParentFont = False
  349.     ParentShowHint = False
  350.     ShowHint = True
  351.     TabOrder = 3
  352.     OnClick = ButtonviewClick
  353.   end
  354.   object Buttonchange: TButton
  355.     Left = 272
  356.     Top = 144
  357.     Width = 81
  358.     Height = 33
  359.     Hint = 'Press here to change selection'
  360.     Caption = '&Options'
  361.     Font.Color = clBlack
  362.     Font.Height = -13
  363.     Font.Name = 'System'
  364.     Font.Style = []
  365.     ParentFont = False
  366.     ParentShowHint = False
  367.     ShowHint = True
  368.     TabOrder = 2
  369.     OnClick = ButtonchangeClick
  370.   end
  371.   object Buttonsim: TButton
  372.     Left = 354
  373.     Top = 176
  374.     Width = 81
  375.     Height = 33
  376.     Hint = 'Press here for simulated draw with entry'
  377.     Caption = 'Sim &Draw'
  378.     Font.Color = clBlack
  379.     Font.Height = -13
  380.     Font.Name = 'System'
  381.     Font.Style = []
  382.     ParentFont = False
  383.     ParentShowHint = False
  384.     ShowHint = True
  385.     TabOrder = 57
  386.     OnClick = ButtonsimClick
  387.   end
  388.   object Buttonfav: TButton
  389.     Left = 272
  390.     Top = 176
  391.     Width = 81
  392.     Height = 33
  393.     Hint = 'Press here to enter your favourite numbers'
  394.     Caption = '&Fav Nums'
  395.     Font.Color = clBlack
  396.     Font.Height = -13
  397.     Font.Name = 'System'
  398.     Font.Style = []
  399.     ParentFont = False
  400.     ParentShowHint = False
  401.     ShowHint = True
  402.     TabOrder = 56
  403.     OnClick = ButtonfavClick
  404.   end
  405.   object Buttoninfo: TButton
  406.     Left = 354
  407.     Top = 208
  408.     Width = 81
  409.     Height = 33
  410.     Hint = 'Press here for info'
  411.     Caption = '&Info'
  412.     Font.Color = clBlack
  413.     Font.Height = -13
  414.     Font.Name = 'System'
  415.     Font.Style = []
  416.     ParentFont = False
  417.     ParentShowHint = False
  418.     ShowHint = True
  419.     TabOrder = 58
  420.     OnClick = ButtoninfoClick
  421.   end
  422.   object Buttonexit: TButton
  423.     Left = 448
  424.     Top = 208
  425.     Width = 97
  426.     Height = 33
  427.     Hint = 'Press here to leave MicroLot'
  428.     Caption = 'E&xit'
  429.     Font.Color = clBlack
  430.     Font.Height = -13
  431.     Font.Name = 'System'
  432.     Font.Style = []
  433.     ParentFont = False
  434.     ParentShowHint = False
  435.     ShowHint = True
  436.     TabOrder = 5
  437.     OnClick = ButtonexitClick
  438.   end
  439.   object Buttonhelp: TButton
  440.     Left = 272
  441.     Top = 208
  442.     Width = 81
  443.     Height = 33
  444.     Hint = 'Press here to get help'
  445.     Caption = '&Help'
  446.     Font.Color = clBlack
  447.     Font.Height = -13
  448.     Font.Name = 'System'
  449.     Font.Style = []
  450.     ParentFont = False
  451.     ParentShowHint = False
  452.     ShowHint = True
  453.     TabOrder = 4
  454.     OnClick = ButtonhelpClick
  455.   end
  456.   object lined: TEdit
  457.     Left = 26
  458.     Top = 216
  459.     Width = 33
  460.     Height = 24
  461.     TabStop = False
  462.     Color = clWhite
  463.     Font.Color = clBlack
  464.     Font.Height = -13
  465.     Font.Name = 'System'
  466.     Font.Style = []
  467.     MaxLength = 3
  468.     ParentFont = False
  469.     ReadOnly = True
  470.     TabOrder = 49
  471.   end
  472.   object linec: TEdit
  473.     Left = 26
  474.     Top = 184
  475.     Width = 33
  476.     Height = 24
  477.     TabStop = False
  478.     Color = clWhite
  479.     Font.Color = clBlack
  480.     Font.Height = -13
  481.     Font.Name = 'System'
  482.     Font.Style = []
  483.     MaxLength = 3
  484.     ParentFont = False
  485.     ReadOnly = True
  486.     TabOrder = 48
  487.   end
  488.   object lineb: TEdit
  489.     Left = 26
  490.     Top = 152
  491.     Width = 33
  492.     Height = 24
  493.     TabStop = False
  494.     Color = clWhite
  495.     Font.Color = clBlack
  496.     Font.Height = -13
  497.     Font.Name = 'System'
  498.     Font.Style = []
  499.     MaxLength = 3
  500.     ParentFont = False
  501.     ReadOnly = True
  502.     TabOrder = 47
  503.   end
  504.   object linea: TEdit
  505.     Left = 26
  506.     Top = 120
  507.     Width = 33
  508.     Height = 24
  509.     TabStop = False
  510.     Color = clWhite
  511.     Font.Color = clBlack
  512.     Font.Height = -13
  513.     Font.Name = 'System'
  514.     Font.Style = []
  515.     MaxLength = 3
  516.     ParentFont = False
  517.     ReadOnly = True
  518.     TabOrder = 46
  519.   end
  520.   object lined3: TEdit
  521.     Left = 120
  522.     Top = 216
  523.     Width = 25
  524.     Height = 24
  525.     TabStop = False
  526.     Color = clWhite
  527.     Font.Color = clBlack
  528.     Font.Height = -13
  529.     Font.Name = 'System'
  530.     Font.Style = []
  531.     MaxLength = 2
  532.     ParentFont = False
  533.     ReadOnly = True
  534.     TabOrder = 41
  535.   end
  536.   object lined2: TEdit
  537.     Left = 96
  538.     Top = 216
  539.     Width = 25
  540.     Height = 24
  541.     TabStop = False
  542.     Color = clWhite
  543.     Font.Color = clBlack
  544.     Font.Height = -13
  545.     Font.Name = 'System'
  546.     Font.Style = []
  547.     MaxLength = 2
  548.     ParentFont = False
  549.     ReadOnly = True
  550.     TabOrder = 40
  551.   end
  552.   object lined1: TEdit
  553.     Left = 72
  554.     Top = 216
  555.     Width = 25
  556.     Height = 24
  557.     TabStop = False
  558.     Color = clWhite
  559.     Font.Color = clBlack
  560.     Font.Height = -13
  561.     Font.Name = 'System'
  562.     Font.Style = []
  563.     MaxLength = 2
  564.     ParentFont = False
  565.     ReadOnly = True
  566.     TabOrder = 39
  567.   end
  568.   object linec3: TEdit
  569.     Left = 120
  570.     Top = 184
  571.     Width = 25
  572.     Height = 24
  573.     TabStop = False
  574.     Color = clWhite
  575.     Font.Color = clBlack
  576.     Font.Height = -13
  577.     Font.Name = 'System'
  578.     Font.Style = []
  579.     MaxLength = 2
  580.     ParentFont = False
  581.     ReadOnly = True
  582.     TabOrder = 34
  583.   end
  584.   object linec2: TEdit
  585.     Left = 96
  586.     Top = 184
  587.     Width = 25
  588.     Height = 24
  589.     TabStop = False
  590.     Color = clWhite
  591.     Font.Color = clBlack
  592.     Font.Height = -13
  593.     Font.Name = 'System'
  594.     Font.Style = []
  595.     MaxLength = 2
  596.     ParentFont = False
  597.     ReadOnly = True
  598.     TabOrder = 33
  599.   end
  600.   object linec1: TEdit
  601.     Left = 72
  602.     Top = 184
  603.     Width = 25
  604.     Height = 24
  605.     TabStop = False
  606.     Color = clWhite
  607.     Font.Color = clBlack
  608.     Font.Height = -13
  609.     Font.Name = 'System'
  610.     Font.Style = []
  611.     MaxLength = 2
  612.     ParentFont = False
  613.     ReadOnly = True
  614.     TabOrder = 32
  615.   end
  616.   object lineb7: TEdit
  617.     Left = 224
  618.     Top = 152
  619.     Width = 25
  620.     Height = 24
  621.     TabStop = False
  622.     Color = clWhite
  623.     Font.Color = clBlack
  624.     Font.Height = -13
  625.     Font.Name = 'System'
  626.     Font.Style = []
  627.     MaxLength = 2
  628.     ParentFont = False
  629.     ReadOnly = True
  630.     TabOrder = 31
  631.   end
  632.   object lineb6: TEdit
  633.     Left = 192
  634.     Top = 152
  635.     Width = 25
  636.     Height = 24
  637.     TabStop = False
  638.     Color = clWhite
  639.     Font.Color = clBlack
  640.     Font.Height = -13
  641.     Font.Name = 'System'
  642.     Font.Style = []
  643.     MaxLength = 2
  644.     ParentFont = False
  645.     ReadOnly = True
  646.     TabOrder = 30
  647.   end
  648.   object lineb5: TEdit
  649.     Left = 168
  650.     Top = 152
  651.     Width = 25
  652.     Height = 24
  653.     TabStop = False
  654.     Color = clWhite
  655.     Font.Color = clBlack
  656.     Font.Height = -13
  657.     Font.Name = 'System'
  658.     Font.Style = []
  659.     MaxLength = 2
  660.     ParentFont = False
  661.     ReadOnly = True
  662.     TabOrder = 29
  663.   end
  664.   object lineb4: TEdit
  665.     Left = 144
  666.     Top = 152
  667.     Width = 25
  668.     Height = 24
  669.     TabStop = False
  670.     Color = clWhite
  671.     Font.Color = clBlack
  672.     Font.Height = -13
  673.     Font.Name = 'System'
  674.     Font.Style = []
  675.     MaxLength = 2
  676.     ParentFont = False
  677.     ReadOnly = True
  678.     TabOrder = 28
  679.   end
  680.   object lineb3: TEdit
  681.     Left = 120
  682.     Top = 152
  683.     Width = 25
  684.     Height = 24
  685.     TabStop = False
  686.     Color = clWhite
  687.     Font.Color = clBlack
  688.     Font.Height = -13
  689.     Font.Name = 'System'
  690.     Font.Style = []
  691.     MaxLength = 2
  692.     ParentFont = False
  693.     ReadOnly = True
  694.     TabOrder = 27
  695.   end
  696.   object lineb2: TEdit
  697.     Left = 96
  698.     Top = 152
  699.     Width = 25
  700.     Height = 24
  701.     TabStop = False
  702.     Color = clWhite
  703.     Font.Color = clBlack
  704.     Font.Height = -13
  705.     Font.Name = 'System'
  706.     Font.Style = []
  707.     MaxLength = 2
  708.     ParentFont = False
  709.     ReadOnly = True
  710.     TabOrder = 26
  711.   end
  712.   object lineb1: TEdit
  713.     Left = 72
  714.     Top = 152
  715.     Width = 25
  716.     Height = 24
  717.     TabStop = False
  718.     Color = clWhite
  719.     Font.Color = clBlack
  720.     Font.Height = -13
  721.     Font.Name = 'System'
  722.     Font.Style = []
  723.     MaxLength = 2
  724.     ParentFont = False
  725.     ReadOnly = True
  726.     TabOrder = 25
  727.   end
  728.   object linea7: TEdit
  729.     Left = 224
  730.     Top = 120
  731.     Width = 25
  732.     Height = 24
  733.     TabStop = False
  734.     Color = clWhite
  735.     Font.Color = clBlack
  736.     Font.Height = -13
  737.     Font.Name = 'System'
  738.     Font.Style = []
  739.     MaxLength = 2
  740.     ParentFont = False
  741.     ReadOnly = True
  742.     TabOrder = 24
  743.   end
  744.   object linea6: TEdit
  745.     Left = 192
  746.     Top = 120
  747.     Width = 25
  748.     Height = 24
  749.     TabStop = False
  750.     Color = clWhite
  751.     Font.Color = clBlack
  752.     Font.Height = -13
  753.     Font.Name = 'System'
  754.     Font.Style = []
  755.     MaxLength = 2
  756.     ParentFont = False
  757.     ReadOnly = True
  758.     TabOrder = 23
  759.   end
  760.   object linea5: TEdit
  761.     Left = 168
  762.     Top = 120
  763.     Width = 25
  764.     Height = 24
  765.     TabStop = False
  766.     Color = clWhite
  767.     Font.Color = clBlack
  768.     Font.Height = -13
  769.     Font.Name = 'System'
  770.     Font.Style = []
  771.     MaxLength = 2
  772.     ParentFont = False
  773.     ReadOnly = True
  774.     TabOrder = 22
  775.   end
  776.   object linea4: TEdit
  777.     Left = 144
  778.     Top = 120
  779.     Width = 25
  780.     Height = 24
  781.     TabStop = False
  782.     Color = clWhite
  783.     Font.Color = clBlack
  784.     Font.Height = -13
  785.     Font.Name = 'System'
  786.     Font.Style = []
  787.     MaxLength = 2
  788.     ParentFont = False
  789.     ReadOnly = True
  790.     TabOrder = 21
  791.   end
  792.   object linea3: TEdit
  793.     Left = 120
  794.     Top = 120
  795.     Width = 25
  796.     Height = 24
  797.     TabStop = False
  798.     Color = clWhite
  799.     Font.Color = clBlack
  800.     Font.Height = -13
  801.     Font.Name = 'System'
  802.     Font.Style = []
  803.     MaxLength = 2
  804.     ParentFont = False
  805.     ReadOnly = True
  806.     TabOrder = 20
  807.   end
  808.   object linea2: TEdit
  809.     Left = 96
  810.     Top = 120
  811.     Width = 25
  812.     Height = 24
  813.     TabStop = False
  814.     Color = clWhite
  815.     Font.Color = clBlack
  816.     Font.Height = -13
  817.     Font.Name = 'System'
  818.     Font.Style = []
  819.     MaxLength = 2
  820.     ParentFont = False
  821.     ReadOnly = True
  822.     TabOrder = 19
  823.   end
  824.   object linea1: TEdit
  825.     Left = 72
  826.     Top = 120
  827.     Width = 25
  828.     Height = 24
  829.     TabStop = False
  830.     Color = clWhite
  831.     Font.Color = clBlack
  832.     Font.Height = -13
  833.     Font.Name = 'System'
  834.     Font.Style = []
  835.     MaxLength = 2
  836.     ParentFont = False
  837.     ReadOnly = True
  838.     TabOrder = 18
  839.   end
  840.   object linec7: TEdit
  841.     Left = 224
  842.     Top = 184
  843.     Width = 25
  844.     Height = 24
  845.     TabStop = False
  846.     Color = clWhite
  847.     Font.Color = clBlack
  848.     Font.Height = -13
  849.     Font.Name = 'System'
  850.     Font.Style = []
  851.     MaxLength = 2
  852.     ParentFont = False
  853.     ReadOnly = True
  854.     TabOrder = 38
  855.   end
  856.   object lined7: TEdit
  857.     Left = 224
  858.     Top = 216
  859.     Width = 25
  860.     Height = 24
  861.     TabStop = False
  862.     Color = clWhite
  863.     Font.Color = clBlack
  864.     Font.Height = -13
  865.     Font.Name = 'System'
  866.     Font.Style = []
  867.     MaxLength = 2
  868.     ParentFont = False
  869.     ReadOnly = True
  870.     TabOrder = 45
  871.   end
  872.   object viewoption: TPanel
  873.     Left = 440
  874.     Top = 104
  875.     Width = 113
  876.     Height = 145
  877.     BevelInner = bvRaised
  878.     Color = clSilver
  879.     TabOrder = 51
  880.     Visible = False
  881.     object Label5: TLabel
  882.       Left = 8
  883.       Top = 8
  884.       Width = 95
  885.       Height = 33
  886.       Alignment = taCenter
  887.       Caption = ' Press Finish to exit'
  888.       Color = clLime
  889.       ParentColor = False
  890.       WordWrap = True
  891.     end
  892.     object Savebutton: TButton
  893.       Left = 8
  894.       Top = 96
  895.       Width = 97
  896.       Height = 33
  897.       Hint = 'Press here to Save Draw'
  898.       Caption = '&Save'
  899.       Font.Color = clBlack
  900.       Font.Height = -13
  901.       Font.Name = 'System'
  902.       Font.Style = []
  903.       ParentFont = False
  904.       ParentShowHint = False
  905.       ShowHint = True
  906.       TabOrder = 0
  907.       OnClick = SavebuttonClick
  908.     end
  909.     object printbutton: TButton
  910.       Left = 8
  911.       Top = 56
  912.       Width = 97
  913.       Height = 33
  914.       Hint = 'Press here to Print draw'
  915.       Caption = '&Print'
  916.       Font.Color = clBlack
  917.       Font.Height = -13
  918.       Font.Name = 'System'
  919.       Font.Style = []
  920.       ParentFont = False
  921.       ParentShowHint = False
  922.       ShowHint = True
  923.       TabOrder = 1
  924.       OnClick = PrintButtonClick
  925.     end
  926.   end
  927.   object Buttonallback: TPanel
  928.     Left = 440
  929.     Top = 40
  930.     Width = 113
  931.     Height = 65
  932.     Caption = 'Buttonallback'
  933.     Color = clLime
  934.     TabOrder = 53
  935.   end
  936.   object playendnum: TMediaPlayer
  937.     Left = 16
  938.     Top = 400
  939.     Width = 253
  940.     Height = 30
  941.     Visible = False
  942.     TabOrder = 14
  943.     OnNotify = playendnumNotify
  944.   end
  945.   object Playnum: TMediaPlayer
  946.     Left = 16
  947.     Top = 336
  948.     Width = 253
  949.     Height = 30
  950.     Visible = False
  951.     TabOrder = 16
  952.     OnNotify = PlaynumNotify
  953.   end
  954.   object PlayIntro: TMediaPlayer
  955.     Left = 16
  956.     Top = 304
  957.     Width = 253
  958.     Height = 30
  959.     Visible = False
  960.     TabOrder = 17
  961.     OnNotify = PlayIntroNotify
  962.   end
  963.   object num1: TEdit
  964.     Left = 272
  965.     Top = 336
  966.     Width = 25
  967.     Height = 24
  968.     TabStop = False
  969.     MaxLength = 2
  970.     TabOrder = 12
  971.     Visible = False
  972.   end
  973.   object num2: TEdit
  974.     Left = 296
  975.     Top = 336
  976.     Width = 25
  977.     Height = 24
  978.     TabStop = False
  979.     MaxLength = 2
  980.     TabOrder = 11
  981.     Visible = False
  982.   end
  983.   object num3: TEdit
  984.     Left = 320
  985.     Top = 336
  986.     Width = 25
  987.     Height = 24
  988.     TabStop = False
  989.     MaxLength = 2
  990.     TabOrder = 10
  991.     Visible = False
  992.   end
  993.   object num4: TEdit
  994.     Left = 344
  995.     Top = 336
  996.     Width = 25
  997.     Height = 24
  998.     TabStop = False
  999.     MaxLength = 2
  1000.     TabOrder = 9
  1001.     Visible = False
  1002.   end
  1003.   object num5: TEdit
  1004.     Left = 368
  1005.     Top = 336
  1006.     Width = 25
  1007.     Height = 24
  1008.     TabStop = False
  1009.     MaxLength = 2
  1010.     TabOrder = 8
  1011.     Visible = False
  1012.   end
  1013.   object num6: TEdit
  1014.     Left = 392
  1015.     Top = 336
  1016.     Width = 25
  1017.     Height = 24
  1018.     TabStop = False
  1019.     MaxLength = 2
  1020.     TabOrder = 7
  1021.     Visible = False
  1022.   end
  1023.   object playendintro: TMediaPlayer
  1024.     Left = 16
  1025.     Top = 368
  1026.     Width = 253
  1027.     Height = 30
  1028.     Visible = False
  1029.     TabOrder = 15
  1030.     OnNotify = playendintroNotify
  1031.   end
  1032.   object num7: TEdit
  1033.     Left = 424
  1034.     Top = 336
  1035.     Width = 25
  1036.     Height = 24
  1037.     TabStop = False
  1038.     MaxLength = 2
  1039.     TabOrder = 6
  1040.     Visible = False
  1041.   end
  1042.   object playend: TMediaPlayer
  1043.     Left = 272
  1044.     Top = 304
  1045.     Width = 253
  1046.     Height = 30
  1047.     Visible = False
  1048.     TabOrder = 13
  1049.     OnNotify = playendNotify
  1050.   end
  1051.   object DrawList: TListBox
  1052.     Left = 16
  1053.     Top = 104
  1054.     Width = 425
  1055.     Height = 145
  1056.     TabStop = False
  1057.     Color = clWhite
  1058.     Font.Color = clBlack
  1059.     Font.Height = -13
  1060.     Font.Name = 'Courier New'
  1061.     Font.Style = []
  1062.     ItemHeight = 16
  1063.     ParentFont = False
  1064.     TabOrder = 50
  1065.     Visible = False
  1066.   end
  1067.   object selection: TPanel
  1068.     Left = 16
  1069.     Top = 104
  1070.     Width = 537
  1071.     Height = 145
  1072.     BevelInner = bvRaised
  1073.     Color = clSilver
  1074.     TabOrder = 52
  1075.     Visible = False
  1076.     object Label2: TLabel
  1077.       Left = 16
  1078.       Top = 40
  1079.       Width = 113
  1080.       Height = 48
  1081.       Caption = 'Select number of balls drawn and from how many.'
  1082.       Font.Color = clBlack
  1083.       Font.Height = -13
  1084.       Font.Name = 'System'
  1085.       Font.Style = []
  1086.       ParentFont = False
  1087.       WordWrap = True
  1088.     end
  1089.     object Label3: TLabel
  1090.       Left = 392
  1091.       Top = 32
  1092.       Width = 137
  1093.       Height = 80
  1094.       Caption = 
  1095.         'If number is not on the list, please press up and down arrow to ' +
  1096.         'select. Numbers 20 to 60 only.'
  1097.       Font.Color = clBlack
  1098.       Font.Height = -13
  1099.       Font.Name = 'System'
  1100.       Font.Style = []
  1101.       ParentFont = False
  1102.       WordWrap = True
  1103.     end
  1104.     object Label4: TLabel
  1105.       Left = 392
  1106.       Top = 8
  1107.       Width = 134
  1108.       Height = 16
  1109.       Caption = ' Press Finish to exit '
  1110.       Color = clLime
  1111.       Font.Color = clBlack
  1112.       Font.Height = -13
  1113.       Font.Name = 'System'
  1114.       Font.Style = []
  1115.       ParentColor = False
  1116.       ParentFont = False
  1117.     end
  1118.     object bonusboxes: TGroupBox
  1119.       Left = 152
  1120.       Top = 72
  1121.       Width = 89
  1122.       Height = 49
  1123.       TabOrder = 1
  1124.       object bonusbox: TCheckBox
  1125.         Left = 16
  1126.         Top = 16
  1127.         Width = 65
  1128.         Height = 17
  1129.         Hint = 'Select the Bonus Ball'
  1130.         Caption = 'Bonus'
  1131.         Font.Color = clBlack
  1132.         Font.Height = -13
  1133.         Font.Name = 'System'
  1134.         Font.Style = []
  1135.         ParentFont = False
  1136.         ParentShowHint = False
  1137.         ShowHint = True
  1138.         State = cbChecked
  1139.         TabOrder = 0
  1140.         OnClick = bonusboxClick
  1141.       end
  1142.     end
  1143.     object radioballs: TRadioGroup
  1144.       Left = 152
  1145.       Top = 8
  1146.       Width = 89
  1147.       Height = 73
  1148.       Hint = 'Select Number of balls'
  1149.       Caption = 'No of Balls'
  1150.       Columns = 2
  1151.       Font.Color = clBlack
  1152.       Font.Height = -13
  1153.       Font.Name = 'System'
  1154.       Font.Style = []
  1155.       ItemIndex = 5
  1156.       Items.Strings = (
  1157.         '&1'
  1158.         '&2'
  1159.         '&3'
  1160.         '&4'
  1161.         '&5'
  1162.         '&6')
  1163.       ParentFont = False
  1164.       ParentShowHint = False
  1165.       ShowHint = True
  1166.       TabOrder = 0
  1167.       OnClick = radioballsClick
  1168.     end
  1169.     object selnum: TGroupBox
  1170.       Left = 280
  1171.       Top = 72
  1172.       Width = 89
  1173.       Height = 49
  1174.       Font.Color = clBlack
  1175.       Font.Height = -13
  1176.       Font.Name = 'System'
  1177.       Font.Style = []
  1178.       ParentFont = False
  1179.       ParentShowHint = False
  1180.       ShowHint = True
  1181.       TabOrder = 3
  1182.       object numsel: TSpinEdit
  1183.         Left = 24
  1184.         Top = 16
  1185.         Width = 41
  1186.         Height = 26
  1187.         Hint = 'Select the number of balls here'
  1188.         EditorEnabled = False
  1189.         Font.Color = clBlack
  1190.         Font.Height = -13
  1191.         Font.Name = 'System'
  1192.         Font.Style = []
  1193.         MaxLength = 2
  1194.         MaxValue = 60
  1195.         MinValue = 10
  1196.         ParentFont = False
  1197.         TabOrder = 0
  1198.         Value = 49
  1199.         OnChange = numselChange
  1200.       end
  1201.     end
  1202.     object selfrom: TRadioGroup
  1203.       Left = 280
  1204.       Top = 8
  1205.       Width = 89
  1206.       Height = 73
  1207.       Hint = 'Select how many balls drawn from'
  1208.       Caption = 'Select From'
  1209.       Columns = 2
  1210.       Font.Color = clBlack
  1211.       Font.Height = -13
  1212.       Font.Name = 'System'
  1213.       Font.Style = []
  1214.       ItemIndex = 4
  1215.       Items.Strings = (
  1216.         '39'
  1217.         '42'
  1218.         '45'
  1219.         '47'
  1220.         '49'
  1221.         '51')
  1222.       ParentFont = False
  1223.       ParentShowHint = False
  1224.       ShowHint = True
  1225.       TabOrder = 2
  1226.       OnClick = selfromClick
  1227.     end
  1228.   end
  1229.   object Allbutton: TButton
  1230.     Left = 448
  1231.     Top = 48
  1232.     Width = 97
  1233.     Height = 49
  1234.     Caption = '&Begin Draw'
  1235.     Font.Color = clBlack
  1236.     Font.Height = -13
  1237.     Font.Name = 'System'
  1238.     Font.Style = []
  1239.     ParentFont = False
  1240.     TabOrder = 0
  1241.     OnClick = AllbuttonClick
  1242.   end
  1243.   object Buttonsound: TButton
  1244.     Left = 440
  1245.     Top = 8
  1246.     Width = 113
  1247.     Height = 33
  1248.     Hint = 'Turn Sound On or Off'
  1249.     Caption = '&Sound [ON ]'
  1250.     Font.Color = clBlack
  1251.     Font.Height = -13
  1252.     Font.Name = 'System'
  1253.     Font.Style = []
  1254.     ParentFont = False
  1255.     ParentShowHint = False
  1256.     ShowHint = True
  1257.     TabOrder = 1
  1258.     OnClick = ButtonsoundClick
  1259.   end
  1260.   object inifilebox: TListBox
  1261.     Left = 440
  1262.     Top = 368
  1263.     Width = 145
  1264.     Height = 57
  1265.     ItemHeight = 16
  1266.     TabOrder = 54
  1267.     Visible = False
  1268.   end
  1269.   object Panelstat: TPanel
  1270.     Left = 8
  1271.     Top = 96
  1272.     Width = 545
  1273.     Height = 163
  1274.     Color = clSilver
  1275.     TabOrder = 61
  1276.     Visible = False
  1277.     object Label10: TLabel
  1278.       Left = 448
  1279.       Top = 8
  1280.       Width = 90
  1281.       Height = 112
  1282.       Caption = 
  1283.         'Num of times the numbers came out, including the bonus ball, sin' +
  1284.         'ce last change'
  1285.       Font.Color = clBlack
  1286.       Font.Height = -13
  1287.       Font.Name = 'System'
  1288.       Font.Style = []
  1289.       ParentFont = False
  1290.       WordWrap = True
  1291.     end
  1292.     object Buttonstatok: TButton
  1293.       Left = 448
  1294.       Top = 120
  1295.       Width = 89
  1296.       Height = 33
  1297.       Hint = 'Press here to exit'
  1298.       Caption = '&OK'
  1299.       Font.Color = clBlack
  1300.       Font.Height = -13
  1301.       Font.Name = 'System'
  1302.       Font.Style = []
  1303.       ParentFont = False
  1304.       ParentShowHint = False
  1305.       ShowHint = True
  1306.       TabOrder = 0
  1307.       OnClick = ButtonstatokClick
  1308.     end
  1309.     object statslist: TListBox
  1310.       Left = 8
  1311.       Top = 5
  1312.       Width = 433
  1313.       Height = 153
  1314.       Color = clWhite
  1315.       Font.Color = clBlack
  1316.       Font.Height = -13
  1317.       Font.Name = 'System'
  1318.       Font.Style = []
  1319.       ItemHeight = 16
  1320.       ParentFont = False
  1321.       TabOrder = 1
  1322.     end
  1323.   end
  1324.   object Panelchoice: TPanel
  1325.     Left = 264
  1326.     Top = 104
  1327.     Width = 289
  1328.     Height = 145
  1329.     Color = clSilver
  1330.     TabOrder = 59
  1331.     Visible = False
  1332.     object labelwhich2: TLabel
  1333.       Left = 16
  1334.       Top = 8
  1335.       Width = 190
  1336.       Height = 32
  1337.       Caption = 'Please enter your numbers. All numbers must be entered.'
  1338.       Color = clSilver
  1339.       Font.Color = clBlack
  1340.       Font.Height = -13
  1341.       Font.Name = 'System'
  1342.       Font.Style = []
  1343.       ParentColor = False
  1344.       ParentFont = False
  1345.       WordWrap = True
  1346.     end
  1347.     object Labelwhich1: TLabel
  1348.       Left = 16
  1349.       Top = 8
  1350.       Width = 184
  1351.       Height = 32
  1352.       Caption = 'Please enter your numbers. Any blanks must contain '#39'0'#39'.'
  1353.       Color = clSilver
  1354.       Font.Color = clBlack
  1355.       Font.Height = -13
  1356.       Font.Name = 'System'
  1357.       Font.Style = []
  1358.       ParentColor = False
  1359.       ParentFont = False
  1360.       WordWrap = True
  1361.     end
  1362.     object fav1: TSpinEdit
  1363.       Left = 16
  1364.       Top = 56
  1365.       Width = 41
  1366.       Height = 26
  1367.       Color = clWhite
  1368.       Font.Color = clBlack
  1369.       Font.Height = -13
  1370.       Font.Name = 'System'
  1371.       Font.Style = []
  1372.       MaxLength = 2
  1373.       MaxValue = 60
  1374.       MinValue = 0
  1375.       ParentFont = False
  1376.       TabOrder = 2
  1377.       Value = 0
  1378.       OnChange = fav1Change
  1379.       OnExit = fav1Exit
  1380.       OnKeyUp = fav1KeyUp
  1381.     end
  1382.     object fav2: TSpinEdit
  1383.       Left = 40
  1384.       Top = 56
  1385.       Width = 41
  1386.       Height = 26
  1387.       Color = clWhite
  1388.       Font.Color = clBlack
  1389.       Font.Height = -13
  1390.       Font.Name = 'System'
  1391.       Font.Style = []
  1392.       MaxLength = 2
  1393.       MaxValue = 60
  1394.       MinValue = 0
  1395.       ParentFont = False
  1396.       TabOrder = 3
  1397.       Value = 0
  1398.       OnChange = fav2Change
  1399.       OnExit = fav2Exit
  1400.       OnKeyUp = fav2KeyUp
  1401.     end
  1402.     object buttonfavclear: TButton
  1403.       Left = 216
  1404.       Top = 8
  1405.       Width = 65
  1406.       Height = 33
  1407.       Hint = 'Press here to clear selection'
  1408.       Caption = '&Clear'
  1409.       Font.Color = clBlack
  1410.       Font.Height = -13
  1411.       Font.Name = 'System'
  1412.       Font.Style = []
  1413.       ParentFont = False
  1414.       ParentShowHint = False
  1415.       ShowHint = True
  1416.       TabOrder = 0
  1417.       OnClick = buttonfavclearClick
  1418.     end
  1419.     object Buttonfavexit: TButton
  1420.       Left = 216
  1421.       Top = 104
  1422.       Width = 65
  1423.       Height = 33
  1424.       Hint = 'Press here to exit'
  1425.       Caption = 'E&xit'
  1426.       Font.Color = clBlack
  1427.       Font.Height = -13
  1428.       Font.Name = 'System'
  1429.       Font.Style = [fsBold]
  1430.       ParentFont = False
  1431.       ParentShowHint = False
  1432.       ShowHint = True
  1433.       TabOrder = 1
  1434.       OnClick = ButtonfavexitClick
  1435.     end
  1436.     object fav3: TSpinEdit
  1437.       Left = 64
  1438.       Top = 56
  1439.       Width = 41
  1440.       Height = 26
  1441.       Color = clWhite
  1442.       Font.Color = clBlack
  1443.       Font.Height = -13
  1444.       Font.Name = 'System'
  1445.       Font.Style = []
  1446.       MaxLength = 2
  1447.       MaxValue = 60
  1448.       MinValue = 0
  1449.       ParentFont = False
  1450.       TabOrder = 4
  1451.       Value = 0
  1452.       OnChange = fav3Change
  1453.       OnExit = fav3Exit
  1454.       OnKeyUp = fav3KeyUp
  1455.     end
  1456.     object fav4: TSpinEdit
  1457.       Left = 88
  1458.       Top = 56
  1459.       Width = 41
  1460.       Height = 26
  1461.       Color = clWhite
  1462.       Font.Color = clBlack
  1463.       Font.Height = -13
  1464.       Font.Name = 'System'
  1465.       Font.Style = []
  1466.       MaxLength = 2
  1467.       MaxValue = 60
  1468.       MinValue = 0
  1469.       ParentFont = False
  1470.       TabOrder = 5
  1471.       Value = 0
  1472.       OnChange = fav4Change
  1473.       OnExit = fav4Exit
  1474.       OnKeyUp = fav4KeyUp
  1475.     end
  1476.     object fav5: TSpinEdit
  1477.       Left = 112
  1478.       Top = 56
  1479.       Width = 41
  1480.       Height = 26
  1481.       Color = clWhite
  1482.       Font.Color = clBlack
  1483.       Font.Height = -13
  1484.       Font.Name = 'System'
  1485.       Font.Style = []
  1486.       MaxLength = 2
  1487.       MaxValue = 60
  1488.       MinValue = 0
  1489.       ParentFont = False
  1490.       TabOrder = 6
  1491.       Value = 0
  1492.       OnChange = fav5Change
  1493.       OnExit = fav5Exit
  1494.       OnKeyUp = fav5KeyUp
  1495.     end
  1496.     object fav6: TSpinEdit
  1497.       Left = 136
  1498.       Top = 56
  1499.       Width = 41
  1500.       Height = 26
  1501.       Color = clWhite
  1502.       Font.Color = clBlack
  1503.       Font.Height = -13
  1504.       Font.Name = 'System'
  1505.       Font.Style = []
  1506.       MaxLength = 2
  1507.       MaxValue = 60
  1508.       MinValue = 0
  1509.       ParentFont = False
  1510.       TabOrder = 7
  1511.       Value = 0
  1512.       OnChange = fav6Change
  1513.       OnExit = fav6Exit
  1514.       OnKeyUp = fav6KeyUp
  1515.     end
  1516.     object fav7: TSpinEdit
  1517.       Left = 184
  1518.       Top = 56
  1519.       Width = 41
  1520.       Height = 26
  1521.       Color = clWhite
  1522.       Font.Color = clBlack
  1523.       Font.Height = -13
  1524.       Font.Name = 'System'
  1525.       Font.Style = []
  1526.       MaxLength = 2
  1527.       MaxValue = 60
  1528.       MinValue = 0
  1529.       ParentFont = False
  1530.       TabOrder = 8
  1531.       Value = 0
  1532.       OnChange = fav7Change
  1533.       OnExit = fav7Exit
  1534.       OnKeyUp = fav7KeyUp
  1535.     end
  1536.     object blank6: TPanel
  1537.       Left = 160
  1538.       Top = 52
  1539.       Width = 20
  1540.       Height = 37
  1541.       BevelOuter = bvNone
  1542.       Color = clSilver
  1543.       TabOrder = 9
  1544.     end
  1545.     object blank7: TPanel
  1546.       Left = 208
  1547.       Top = 54
  1548.       Width = 20
  1549.       Height = 37
  1550.       BevelOuter = bvNone
  1551.       Color = clSilver
  1552.       TabOrder = 10
  1553.     end
  1554.     object blank5: TPanel
  1555.       Left = 136
  1556.       Top = 52
  1557.       Width = 32
  1558.       Height = 37
  1559.       BevelOuter = bvNone
  1560.       Color = clSilver
  1561.       TabOrder = 11
  1562.     end
  1563.     object blank4: TPanel
  1564.       Left = 112
  1565.       Top = 52
  1566.       Width = 32
  1567.       Height = 37
  1568.       BevelOuter = bvNone
  1569.       Color = clSilver
  1570.       TabOrder = 12
  1571.     end
  1572.     object blank3: TPanel
  1573.       Left = 88
  1574.       Top = 52
  1575.       Width = 32
  1576.       Height = 37
  1577.       BevelOuter = bvNone
  1578.       Color = clSilver
  1579.       TabOrder = 13
  1580.     end
  1581.     object blank2: TPanel
  1582.       Left = 56
  1583.       Top = 52
  1584.       Width = 32
  1585.       Height = 37
  1586.       BevelOuter = bvNone
  1587.       Color = clSilver
  1588.       TabOrder = 14
  1589.     end
  1590.     object blank1: TPanel
  1591.       Left = 40
  1592.       Top = 52
  1593.       Width = 24
  1594.       Height = 37
  1595.       BevelOuter = bvNone
  1596.       Color = clSilver
  1597.       TabOrder = 15
  1598.     end
  1599.   end
  1600.   object StatusBar1: TStatusBar
  1601.     Left = 0
  1602.     Top = 271
  1603.     Width = 568
  1604.     Height = 19
  1605.     Panels = <>
  1606.     SimplePanel = True
  1607.     SimpleText = 
  1608.       'Welcome to MicroLot.  ∩┐╜J. Chan - Jan 97   Version 1.0 for Window' +
  1609.       's 95/NT'
  1610.     SizeGrip = False
  1611.   end
  1612.   object infopanel: TPanel
  1613.     Left = 8
  1614.     Top = 8
  1615.     Width = 545
  1616.     Height = 249
  1617.     Color = clSilver
  1618.     TabOrder = 60
  1619.     Visible = False
  1620.     object Label9: TLabel
  1621.       Left = 8
  1622.       Top = 11
  1623.       Width = 92
  1624.       Height = 16
  1625.       Caption = 'Date Last Run'
  1626.       Color = clSilver
  1627.       ParentColor = False
  1628.     end
  1629.     object Label22: TLabel
  1630.       Left = 8
  1631.       Top = 43
  1632.       Width = 94
  1633.       Height = 16
  1634.       Caption = 'Time Last Run'
  1635.       Color = clSilver
  1636.       ParentColor = False
  1637.     end
  1638.     object Label23: TLabel
  1639.       Left = 8
  1640.       Top = 75
  1641.       Width = 85
  1642.       Height = 16
  1643.       Caption = 'Program Run'
  1644.       Color = clSilver
  1645.       ParentColor = False
  1646.     end
  1647.     object Label24: TLabel
  1648.       Left = 216
  1649.       Top = 75
  1650.       Width = 81
  1651.       Height = 16
  1652.       Caption = 'Current Date'
  1653.       Color = clSilver
  1654.       ParentColor = False
  1655.     end
  1656.     object Label25: TLabel
  1657.       Left = 216
  1658.       Top = 107
  1659.       Width = 83
  1660.       Height = 16
  1661.       Caption = 'Current Time'
  1662.       Color = clSilver
  1663.       ParentColor = False
  1664.     end
  1665.     object Label26: TLabel
  1666.       Left = 8
  1667.       Top = 107
  1668.       Width = 49
  1669.       Height = 16
  1670.       Caption = 'Version'
  1671.       Color = clSilver
  1672.       ParentColor = False
  1673.     end
  1674.     object Label6: TLabel
  1675.       Left = 216
  1676.       Top = 11
  1677.       Width = 73
  1678.       Height = 16
  1679.       Caption = 'User Name'
  1680.       Color = clSilver
  1681.       ParentColor = False
  1682.     end
  1683.     object Label7: TLabel
  1684.       Left = 216
  1685.       Top = 43
  1686.       Width = 83
  1687.       Height = 16
  1688.       Caption = 'Organization'
  1689.       Color = clSilver
  1690.       ParentColor = False
  1691.     end
  1692.     object Buttoninfook: TButton
  1693.       Left = 432
  1694.       Top = 84
  1695.       Width = 89
  1696.       Height = 33
  1697.       Hint = 'Press here to exit'
  1698.       Caption = '&OK'
  1699.       Font.Color = clBlack
  1700.       Font.Height = -13
  1701.       Font.Name = 'System'
  1702.       Font.Style = []
  1703.       ParentFont = False
  1704.       ParentShowHint = False
  1705.       ShowHint = True
  1706.       TabOrder = 0
  1707.       OnClick = ButtoninfookClick
  1708.     end
  1709.     object info1: TEdit
  1710.       Left = 104
  1711.       Top = 8
  1712.       Width = 97
  1713.       Height = 24
  1714.       Color = clWhite
  1715.       ReadOnly = True
  1716.       TabOrder = 1
  1717.     end
  1718.     object info2: TEdit
  1719.       Left = 104
  1720.       Top = 40
  1721.       Width = 97
  1722.       Height = 24
  1723.       Color = clWhite
  1724.       ReadOnly = True
  1725.       TabOrder = 2
  1726.     end
  1727.     object info3: TEdit
  1728.       Left = 104
  1729.       Top = 72
  1730.       Width = 97
  1731.       Height = 24
  1732.       Color = clWhite
  1733.       ReadOnly = True
  1734.       TabOrder = 3
  1735.     end
  1736.     object info4: TEdit
  1737.       Left = 312
  1738.       Top = 72
  1739.       Width = 97
  1740.       Height = 24
  1741.       Color = clWhite
  1742.       ReadOnly = True
  1743.       TabOrder = 4
  1744.     end
  1745.     object info5: TEdit
  1746.       Left = 312
  1747.       Top = 104
  1748.       Width = 97
  1749.       Height = 24
  1750.       Color = clWhite
  1751.       ReadOnly = True
  1752.       TabOrder = 5
  1753.     end
  1754.     object info6: TEdit
  1755.       Left = 104
  1756.       Top = 104
  1757.       Width = 97
  1758.       Height = 24
  1759.       Color = clWhite
  1760.       ReadOnly = True
  1761.       TabOrder = 6
  1762.     end
  1763.     object info8: TEdit
  1764.       Left = 312
  1765.       Top = 40
  1766.       Width = 225
  1767.       Height = 24
  1768.       Color = clWhite
  1769.       ReadOnly = True
  1770.       TabOrder = 7
  1771.     end
  1772.     object info7: TEdit
  1773.       Left = 312
  1774.       Top = 8
  1775.       Width = 225
  1776.       Height = 24
  1777.       Color = clWhite
  1778.       ReadOnly = True
  1779.       TabOrder = 8
  1780.     end
  1781.     object Memo1: TMemo
  1782.       Left = 8
  1783.       Top = 136
  1784.       Width = 521
  1785.       Height = 105
  1786.       Color = clWhite
  1787.       Enabled = False
  1788.       Font.Color = clBlack
  1789.       Font.Height = -13
  1790.       Font.Name = 'System'
  1791.       Font.Style = []
  1792.       Lines.Strings = (
  1793.         
  1794.           'MicroLot was written by Johnny Chan, age 23 as at December 1996 ' +
  1795.           'from UK.'
  1796.         
  1797.           'This is version 1.0 for Windows 95/NT. Released date 01 January ' +
  1798.           '97.'
  1799.         ''
  1800.         
  1801.           'Check my web site to see any future development and my other int' +
  1802.           'erests at'
  1803.         
  1804.           'http://home.clara.net/jcwchan.        Email to author : jcwchan@' +
  1805.           'clara.net'
  1806.         
  1807.           'Email about MicroLot : microlot@jcwchan.clara.net    Please use ' +
  1808.           'correct Email.')
  1809.       ParentFont = False
  1810.       ReadOnly = True
  1811.       TabOrder = 9
  1812.     end
  1813.   end
  1814.   object passwordpanel: TPanel
  1815.     Left = 8
  1816.     Top = 8
  1817.     Width = 545
  1818.     Height = 249
  1819.     BevelInner = bvLowered
  1820.     BevelWidth = 5
  1821.     Color = clSilver
  1822.     Font.Color = clBlack
  1823.     Font.Height = -13
  1824.     Font.Name = 'System'
  1825.     Font.Style = []
  1826.     ParentFont = False
  1827.     TabOrder = 55
  1828.     Visible = False
  1829.     object Label8: TLabel
  1830.       Left = 328
  1831.       Top = 190
  1832.       Width = 64
  1833.       Height = 16
  1834.       Caption = 'Password'
  1835.       Color = clSilver
  1836.       ParentColor = False
  1837.     end
  1838.     object regmessa: TLabel
  1839.       Left = 32
  1840.       Top = 16
  1841.       Width = 474
  1842.       Height = 64
  1843.       Caption = 
  1844.         'To unlock this shareware version, please obtain a password. Micr' +
  1845.         'oLot is Shareware. Email me on : microlot@jcwchan.clara.net and ' +
  1846.         'in subject heading, enter '#39'MICROLOT FULL VERSION'#39'. Support is av' +
  1847.         'ailable by entering '#39'MICROLOT SUPPORT'#39' in subject heading.'
  1848.       Color = clSilver
  1849.       ParentColor = False
  1850.       WordWrap = True
  1851.     end
  1852.     object labelemail: TLabel
  1853.       Left = 16
  1854.       Top = 190
  1855.       Width = 94
  1856.       Height = 16
  1857.       Caption = 'Email Address'
  1858.       Color = clSilver
  1859.       ParentColor = False
  1860.     end
  1861.     object regmessb: TLabel
  1862.       Left = 32
  1863.       Top = 88
  1864.       Width = 481
  1865.       Height = 64
  1866.       Caption = 
  1867.         'Please include your name, address, including country, so I can e' +
  1868.         'mail you details in how to send payment to me. Any future update' +
  1869.         's and user support will be available free of charge. Downloads a' +
  1870.         're subject to internet and phone cost.'
  1871.       Color = clSilver
  1872.       ParentColor = False
  1873.       WordWrap = True
  1874.     end
  1875.     object regmessc: TLabel
  1876.       Left = 144
  1877.       Top = 136
  1878.       Width = 268
  1879.       Height = 16
  1880.       Caption = 'Please also include the code on the right.'
  1881.     end
  1882.     object Label12: TLabel
  1883.       Left = 12
  1884.       Top = 168
  1885.       Width = 514
  1886.       Height = 16
  1887.       Caption = 
  1888.         'Check my web site for details of updates && cost at http://home.' +
  1889.         'clara.net/jcwchan'
  1890.     end
  1891.     object passwordedit: TEdit
  1892.       Left = 328
  1893.       Top = 208
  1894.       Width = 73
  1895.       Height = 24
  1896.       Hint = 'Enter password here'
  1897.       Color = clWhite
  1898.       MaxLength = 7
  1899.       ParentShowHint = False
  1900.       ShowHint = True
  1901.       TabOrder = 0
  1902.       OnKeyUp = passwordeditKeyUp
  1903.     end
  1904.     object passexit: TButton
  1905.       Left = 472
  1906.       Top = 208
  1907.       Width = 57
  1908.       Height = 25
  1909.       Hint = 'Press here to exit registration'
  1910.       Caption = '&Exit'
  1911.       TabOrder = 2
  1912.       OnClick = passexitClick
  1913.     end
  1914.     object passok: TButton
  1915.       Left = 408
  1916.       Top = 208
  1917.       Width = 57
  1918.       Height = 25
  1919.       Hint = 'Press here to enter password'
  1920.       Caption = '&OK'
  1921.       ParentShowHint = False
  1922.       ShowHint = True
  1923.       TabOrder = 1
  1924.       OnClick = passokClick
  1925.     end
  1926.     object passwordemail: TEdit
  1927.       Left = 16
  1928.       Top = 208
  1929.       Width = 305
  1930.       Height = 24
  1931.       Hint = 'Enter email here'
  1932.       Color = clWhite
  1933.       MaxLength = 35
  1934.       ParentShowHint = False
  1935.       ShowHint = True
  1936.       TabOrder = 3
  1937.       OnKeyUp = passwordemailKeyUp
  1938.     end
  1939.     object securitycodebox: TEdit
  1940.       Left = 416
  1941.       Top = 136
  1942.       Width = 73
  1943.       Height = 24
  1944.       Hint = 'Send this code with your payment to unlock'
  1945.       TabStop = False
  1946.       Color = clWhite
  1947.       ReadOnly = True
  1948.       TabOrder = 4
  1949.       Text = '0'
  1950.     end
  1951.   end
  1952.   object Timer1: TTimer
  1953.     Interval = 100
  1954.     OnTimer = Timer1Timer
  1955.     Left = 448
  1956.     Top = 336
  1957.   end
  1958.   object Timer2: TTimer
  1959.     Interval = 55
  1960.     OnTimer = Timer2Timer
  1961.     Left = 480
  1962.     Top = 336
  1963.   end
  1964.   object SaveDialog: TSaveDialog
  1965.     FileEditStyle = fsEdit
  1966.     Left = 528
  1967.     Top = 336
  1968.   end
  1969.   object PrintDialog: TPrintDialog
  1970.     Options = [poWarning]
  1971.     Left = 504
  1972.     Top = 336
  1973.   end
  1974.   object backuptimer: TTimer
  1975.     Enabled = False
  1976.     Interval = 7000
  1977.     OnTimer = backuptimerTimer
  1978.     Left = 560
  1979.     Top = 336
  1980.   end
  1981. end
  1982.